10 PRINT"[147][144]ASSUMING 18-HOLE COURSE"
20 INPUT"FIRST ROUND";R1
30 IFR1<>INT(R1)THENGOSUB200:GOTO20
40 Z=R1:GOSUB300
50 INPUT"SECOND ROUND";R2
60 IFR2<>INT(R2)THENGOSUB200:GOTO50
70 Z=R2:GOSUB300
80 INPUT"THIRD ROUND";R3
90 IFR3<>INT(R3)THENGOSUB200:GOTO80
100 Z=R3:GOSUB300
110 TS=R1+R2+R3:PRINT"TOTAL SHOTS FOR 3 ROUNDS:"TS
120 N=TS/54
130 R=INT(N+.5)
140 PRINT:PRINT"AVG.SHOTS PER HOLE FOR 3 ROUNDS:"R
150 END
200 PRINT:PRINT"NO DECIMALS, PLEASE!"
210 PRINT:RETURN
300 N=Z/18
310 R=INT(N+.5)
320 PRINT:PRINT"AVG. SHOTS PER HOLE:"R
330 PRINT:RETURN